gusucode.com > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT) > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT)\9)ASP 在线手机销售系统\HandsetPro\handset\admin\memModifySave.asp
<!-- #include file = "include/sysbase.asp" --> <% dim strSQL, cmdObj, rsObj dim IsModifyPwd, strPwd1, strPwd2, nMemberId IsModifyPwd = CInt(Request.Form("modifyPassword")) strPwd1 = RealString(Request.Form("password1")) strPwd2 = RealString(Request.Form("password2")) nMemberId = RealString(Request.Form("memberID")) if IsModifyPwd = 1 then if strPwd1 <> strPwd2 then Response.Write "密码、确认密码不同<br><a href = 'Javascript:window.history.go(-1)'>返回</a>" Response.End end if end if ' Response.Write IsModifyPwd ' Response.End Set cmdObj = Server.CreateObject("ADODB.Command") Set rsObj = Server.CreateObject("ADODB.RecordSet") cmdObj.CommandText = "SELECT * FROM member WHERE MemberId = '" & nMemberId & "'" cmdObj.CommandType = adCmdText Set cmdObj.ActiveConnection = conn rsObj.Open cmdObj, , adOpenKeyset, adLockOptimistic rsObj("memberID") = nMemberId rsObj("name") = Request.Form("name") rsObj("sex") = Request.Form("sex") if IsModifyPwd = 1 then rsObj("Pwd") = strPwd1 end if rsObj("question") = Request.Form("question") rsObj("answer") = Request.Form("answer") rsObj("email") = Request.Form("email") rsObj("phone") = Request.Form("phone") rsObj("address") = Request.Form("address") rsObj("Zipcode") = Request.Form("Zipcode") rsObj.Update rsObj.Close set rsObj = nothing CloseConn() %> <script language = Javascript> <!-- alert("修改成功!"); this.document.location = "<%=Session("adminOldUrl")%>"; --> </script>